Heal {
  notice $1 You Have Fully Healed!
  writeini Ninja.ini $1 Hp $readini(Ninja.ini,$1,MHp)
  writeini Ninja.ini $1 Sp $readini(Ninja.ini,$1,MSp)
  writeini Ninja.ini $1 Cp $readini(Ninja.ini,$1,MCp)
}
Leave {
  if ($readini(Ninja.ini,$1,Fighting) != yes) { halt }
  Writeini Ninja.ini $1 fighting no
  Writeini Ninja.ini $1 attacking no
  Set %batlist $remtok(%batlist,$1,1,32)
  Msg %Chan $1 $+ ( $+ $readini(Ninja.ini,$1,Character) $+ ) Has Left The Battle Field!
}
LvLCheck {
  set %Exp [ $readini Ninja.ini $1 Exp ]
  set %NExp [ $readini Ninja.ini $1 NExp ]
  set %Level [ $readini Ninja.ini $1 Lvl ]
  If (%Exp >= %NExp) {
    Msg %Chan $1 $+ ( $+ $readini(Ninja.ini,$1,Character) $+ ) Grew a Level!
    if ($readini(Ninja.ini,$1,Gender) == Male) {
      Set %Taioff $Rand(2,3)
      Set %Genoff $Rand(2,3)
      Set %Ninoff $Rand(2,3)
      Set %Wepoff $Rand(2,3)
      Set %TaiDef $Rand(1,2)
      Set %GenDef $Rand(1,2)
      Set %NinDef $Rand(1,2)
      Set %WepDef $Rand(1,2)
      Set %Intell $Rand(1,4)
      Set %Strength $Rand(1,4)
      Set %MHp $Rand(10,20)
      Set %MSp $Rand(10,15)
      Set %MCp $Rand(10,15)
      writeini Ninja.ini $1 Lvl $calc($readini(Ninja.ini,$1,Lvl) + 1)
      writeini Ninja.ini $1 MSp $calc($readini(Ninja.ini,$1,MSp) + %MSp)
      writeini Ninja.ini $1 MCp $calc($readini(Ninja.ini,$1,MCp) + %MCp)
      writeini Ninja.ini $1 MHp $calc($readini(Ninja.ini,$1,MHp) + %MHp)
      writeini Ninja.ini $1 NExp $calc($readini(Ninja.ini,$1,NExp) + 200)
      writeini Ninja.ini $1 TaiOff $calc($readini(Ninja.ini,$1,TaiOff) + %TaiOff)
      writeini Ninja.ini $1 GenOff $calc($readini(Ninja.ini,$1,GenOff) + %GenOff)
      writeini Ninja.ini $1 NinOff $calc($readini(Ninja.ini,$1,NinOff) + %NinOff)
      writeini Ninja.ini $1 WepOff $calc($readini(Ninja.ini,$1,WepOff) + %WepOff)
      writeini Ninja.ini $1 TaiDef $calc($readini(Ninja.ini,$1,TaiDef) + %TaiDef)
      writeini Ninja.ini $1 GenDef $calc($readini(Ninja.ini,$1,GenDef) + %GenDef)
      writeini Ninja.ini $1 NinDef $calc($readini(Ninja.ini,$1,NinDef) + %NinDef)
      writeini Ninja.ini $1 WepDef $calc($readini(Ninja.ini,$1,WepDef) + %WepDef)
      writeini Ninja.ini $1 Strength $calc($readini(Ninja.ini,$1,Strength) + %Strength)
      writeini Ninja.ini $1 Intell $calc($readini(Ninja.ini,$1,Intell) + %Intell)
      Notice $1 You Gained %MHp Hp || %MCp Cp || %MSp Sp || %Strength Strength || %Intell Intell || Offences: Tai %TaiOff / Gen %GenOff / Nin %NinOff / Wep %WepOff || Defences:  Tai %TaiDef / Gen %GenDef / Nin %NinDef / Wep %WepDef 
      Heal $1
    }
    if ($readini(Ninja.ini,$1,Gender) == Female) {
      Set %Taioff $Rand(1,2)
      Set %Genoff $Rand(1,2)
      Set %Ninoff $Rand(1,2)
      Set %Wepoff $Rand(1,2)
      Set %TaiDef $Rand(1,4)
      Set %GenDef $Rand(1,4)
      Set %NinDef $Rand(1,4)
      Set %WepDef $Rand(1,4)
      Set %Intell $Rand(1,5)
      Set %Strength $Rand(1,5)
      Set %MHp $Rand(10,30)
      Set %MSp $Rand(10,25)
      Set %MCp $Rand(10,25)
      writeini Ninja.ini $1 Lvl $calc($readini(Ninja.ini,$1,Lvl) + 1)
      writeini Ninja.ini $1 MSp $calc($readini(Ninja.ini,$1,MSp) + %MSp)
      writeini Ninja.ini $1 MCp $calc($readini(Ninja.ini,$1,MCp) + %MCp)
      writeini Ninja.ini $1 MHp $calc($readini(Ninja.ini,$1,MHp) + %MHp)
      writeini Ninja.ini $1 NExp $calc($readini(Ninja.ini,$1,NExp) + 200)
      writeini Ninja.ini $1 TaiOff $calc($readini(Ninja.ini,$1,TaiOff) + %TaiOff)
      writeini Ninja.ini $1 GenOff $calc($readini(Ninja.ini,$1,GenOff) + %GenOff)
      writeini Ninja.ini $1 NinOff $calc($readini(Ninja.ini,$1,NinOff) + %NinOff)
      writeini Ninja.ini $1 WepOff $calc($readini(Ninja.ini,$1,WepOff) + %WepOff)
      writeini Ninja.ini $1 TaiDef $calc($readini(Ninja.ini,$1,TaiDef) + %TaiDef)
      writeini Ninja.ini $1 GenDef $calc($readini(Ninja.ini,$1,GenDef) + %GenDef)
      writeini Ninja.ini $1 NinDef $calc($readini(Ninja.ini,$1,NinDef) + %NinDef)
      writeini Ninja.ini $1 WepDef $calc($readini(Ninja.ini,$1,WepDef) + %WepDef)
      writeini Ninja.ini $1 Strength $calc($readini(Ninja.ini,$1,Strength) + %Strength)
      writeini Ninja.ini $1 Intell $calc($readini(Ninja.ini,$1,Intell) + %Intell)
      Notice $1 You Gained %MHp Hp || %MCp Cp || %MSp Sp || %Strength Strength || %Intell Intell || Offences: Tai %TaiOff / Gen %GenOff / Nin %NinOff / Wep %WepOff || Defences:  Tai %TaiDef / Gen %GenDef / Nin %NinDef / Wep %WepDef
      Heal $1
      RankCheck
    }
  }
}
DeadCheck {
  if ($readini(Ninja.ini,$2,Hp) <= 0) {
    if ($readini(Ninja.ini,$2,fighting) != yes) { halt }
    timerattack $+ $2 off
    set %Ryo $rand(30,40)
    set %Exp $calc(%ExpGain * 2)
    writeini Ninja.ini $1 Exp $calc($readini(Ninja.ini,$1,exp) + %Exp)
    writeini Ninja.ini $1 wins $calc($readini(Ninja.ini,$1,wins) + 1)  
    writeini Ninja.ini $2 Losses $calc($readini(Ninja.ini,$2,Losses) + 1) 
    writeini Ninja.ini $1 Ryo $calc($readini(Ninja.ini,$1,Ryo) + %Ryo) 
    writeini Ninja.ini $2 fighting no
    writeini Ninja.ini $2 Attacking no
    set %batlist $remtok(%batlist,$2,1,32)
    Msg %Chan $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) Defeated $2 $+ ( $+ $readini(Ninja.ini,$2,Character) $+ ) $+ ! $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) Gains %Ryo Ryo and %Exp Exp!
    LvLCheck $1
    RankCheck $1
    OutLaw
    Dragon
  }    
}

OutLaw {
  if ($readini(Ninja.ini,OutLaw,fighting) != yes) {
    Heal OutLaw
    Writeini Ninja.ini OutLaw Fighting Yes
    set %batlist %batList OutLaw
    Msg %Chan OutLaw Enters The Battle Field!
  }
}
Dragon {
  if ($readini(Ninja.ini,Dragon,fighting) != yes) {
    Heal Dragon
    Writeini Ninja.ini Dragon Fighting Yes
    set %batlist %batList Dragon
    Msg %Chan Dragon Enters The Battle Field!
  }
}

RankCheck {
  if ($readini(Ninja.ini,$1,Rank) == Student) {
    if ($readini(Ninja.ini,$1,LvL) >= 9) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Genin!
      Writeini Ninja.ini $1 Rank Genin
      Writeini Ninja.ini $1 LvL 1
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 200)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 200)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 200)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 1000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 100)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 100) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 100) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 100)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 100)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 100)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 100)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 100)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 100)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 100)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Genin) {
    if ($readini(Ninja.ini,$1,LvL) >= 9) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Chuunin!
      Writeini Ninja.ini $1 Rank Chuunin
      Writeini Ninja.ini $1 LvL 1
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 500)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 500)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 500)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 3000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 300)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 300) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 300) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 300)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 300)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 300)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 300)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 300)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 300)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 300)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Chuunin) {
    if ($readini(Ninja.ini,$1,LvL) >= 9) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Jounin!
      Writeini Ninja.ini $1 Rank Jounin
      Writeini Ninja.ini $1 LvL 1
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 1000)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 1000)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 1000)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 7000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 700)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 700) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 700) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 700)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 700)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 700)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 700)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 700)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 700)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 700)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Jounin) {
    if ($readini(Ninja.ini,$1,LvL) >= 9) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Special Jounin!
      Writeini Ninja.ini $1 Rank Special Jounin
      Writeini Ninja.ini $1 LvL 1
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 5000)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 5000)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 5000)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 15000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 1500)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 1500) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 1500) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 1500)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 1500)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 1500)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 1500)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 1500)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 1500)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 1500)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Special Jounin) {
    if ($readini(Ninja.ini,$1,LvL) >= 49) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Sennin!
      Writeini Ninja.ini $1 Rank Sennin
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 8000)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 8000)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 8000)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 40000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 4000)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 4000) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 4000) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 4000)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 4000)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 4000)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 4000)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 4000)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 4000)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 4000)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Sennin) {
    if ($readini(Ninja.ini,$1,LvL) >= 100) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now Kage!
      Writeini Ninja.ini $1 Rank Kage
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 20000)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 20000)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 20000)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 100000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 10000)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 10000) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 10000) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 10000)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 10000)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 10000)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 10000)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 10000)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 10000)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 10000)
      Heal $1
    }
  }
  if ($readini(Ninja.ini,$1,Rank) == Kage) {
    if ($readini(Ninja.ini,$1,LvL) >= 1000) {
      Msg %Chan Congrats $Nick $+ ( $+ $readini(Ninja.ini,$Nick,Character) $+ ) $+ , You are now God!
      Writeini Ninja.ini $1 Rank God
      Writeini Ninja.ini $1 MHp $Calc($readini(Ninja.ini,$1,MHp) + 500000)
      Writeini Ninja.ini $1 MSp $Calc($readini(Ninja.ini,$1,MSp) + 500000)
      Writeini Ninja.ini $1 MCp $Calc($readini(Ninja.ini,$1,MCp) + 500000)
      Writeini Ninja.ini $1 Ryo $Calc($readini(Ninja.ini,$1,Ryo) + 1000000)
      Writeini Ninja.ini $1 TaiOff $Calc($readini(Ninja.ini,$1,TaiOff) + 100000)
      Writeini Ninja.ini $1 NinOff $Calc($readini(Ninja.ini,$1,NinOff) + 100000) 
      Writeini Ninja.ini $1 GenOff $Calc($readini(Ninja.ini,$1,GenOff) + 100000) 
      Writeini Ninja.ini $1 WepOff $Calc($readini(Ninja.ini,$1,WepOff) + 100000)
      Writeini Ninja.ini $1 TaiDef $Calc($readini(Ninja.ini,$1,TaiDef) + 100000)
      Writeini Ninja.ini $1 NinDef $Calc($readini(Ninja.ini,$1,NinDef) + 100000)
      Writeini Ninja.ini $1 GenDef $Calc($readini(Ninja.ini,$1,GenDef) + 100000)
      Writeini Ninja.ini $1 WepDef $Calc($readini(Ninja.ini,$1,WepDef) + 100000)
      Writeini Ninja.ini $1 Intell $Calc($readini(Ninja.ini,$1,Intell) + 100000)
      Writeini Ninja.ini $1 Strength $Calc($readini(Ninja.ini,$1,Strength) + 100000)
      Heal $1
    }
  }
}
